home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / source / docs / objectex / ex6.pp < prev    next >
Encoding:
Text File  |  2000-01-01  |  343 b   |  19 lines
  1. Program ex6;
  2.  
  3. { Program to demonstrate TRect.Grow }
  4.  
  5. Uses objects;
  6.  
  7.  
  8. Var ARect,BRect : TRect;
  9.     
  10. begin
  11.   ARect.Assign(10,10,20,20);
  12.   ARect.Grow(5,5);
  13.   // Brect should be where new ARect is.
  14.   BRect.Assign(5,5,25,25);
  15.   If ARect.Equals(BRect) Then
  16.     Writeln ('ARect equals BRect')
  17.   Else
  18.     Writeln ('ARect does not equal BRect !');
  19. end.